home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.4 / Group1 / Demo8E.exe / 0 / RCDATA / TFORMTAKAS / TFORMTAKAS.txt
Text File  |  1998-07-30  |  17KB  |  627 lines

  1. object FormTakas: TFormTakas
  2.   Left = 138
  3.   Top = 36
  4.   Width = 407
  5.   Height = 399
  6.   HelpContext = 133
  7.   ActiveControl = Panel1
  8.   Caption = 'Takas Kay∩┐╜t'
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'Arial'
  12.   Font.Style = [fsBold]
  13.   Position = poScreenCenter
  14.   OnClose = FormClose
  15.   OnShow = FormShow
  16.   PixelsPerInch = 96
  17.   TextHeight = 14
  18.   object Panel1: TPanel
  19.     Left = 0
  20.     Top = 313
  21.     Width = 399
  22.     Height = 59
  23.     HelpContext = 133
  24.     Align = alBottom
  25.     BevelInner = bvLowered
  26.     BorderWidth = 2
  27.     Color = clRed
  28.     TabOrder = 0
  29.     object Label7: TLabel
  30.       Left = 138
  31.       Top = 6
  32.       Width = 134
  33.       Height = 15
  34.       Caption = 'Kay∩┐╜t ∩┐╜∩┐╜lemleri Butonlar∩┐╜'
  35.       Font.Color = clWhite
  36.       Font.Height = -12
  37.       Font.Name = 'Arial'
  38.       Font.Style = [fsBold]
  39.       ParentFont = False
  40.     end
  41.     object Label8: TLabel
  42.       Left = 13
  43.       Top = 7
  44.       Width = 94
  45.       Height = 15
  46.       Caption = 'Kay∩┐╜t Hareketleri'
  47.       Font.Color = clWhite
  48.       Font.Height = -12
  49.       Font.Name = 'Arial'
  50.       Font.Style = [fsBold]
  51.       ParentFont = False
  52.     end
  53.     object DBNavigator: TDBNavigator
  54.       Left = 12
  55.       Top = 24
  56.       Width = 108
  57.       Height = 27
  58.       DataSource = DataSource1
  59.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  60.       Ctl3D = False
  61.       Hints.Strings = (
  62.         '∩┐╜lk Kay∩┐╜t'
  63.         '∩┐╜nceki Kay∩┐╜t'
  64.         'Sonraki Kay∩┐╜t'
  65.         'Son Kay∩┐╜t')
  66.       ParentCtl3D = False
  67.       ParentShowHint = False
  68.       ShowHint = True
  69.       TabOrder = 2
  70.     end
  71.     object DBNavigator1: TDBNavigator
  72.       Left = 147
  73.       Top = 24
  74.       Width = 108
  75.       Height = 27
  76.       Hint = 'K∩┐╜lavuz'
  77.       DataSource = DataSource1
  78.       VisibleButtons = [nbInsert, nbDelete, nbEdit, nbCancel]
  79.       Ctl3D = False
  80.       Hints.Strings = (
  81.         '∩┐╜lk kay∩┐╜t'
  82.         '∩┐╜nceki'
  83.         'Sonraki'
  84.         'SonKay∩┐╜t'
  85.         'Yeni Kay∩┐╜t'
  86.         'Kay∩┐╜t Sil'
  87.         'D∩┐╜zelt'
  88.         'Kaydet'
  89.         'Vazge∩┐╜'
  90.         'Tazele')
  91.       ParentCtl3D = False
  92.       ParentShowHint = False
  93.       ShowHint = True
  94.       TabOrder = 1
  95.     end
  96.     object BitBtn2: TBitBtn
  97.       Left = 281
  98.       Top = 24
  99.       Width = 108
  100.       Height = 27
  101.       Caption = 'Kay∩┐╜t Sakla'
  102.       Font.Color = clBlack
  103.       Font.Height = -12
  104.       Font.Name = 'Arial'
  105.       Font.Style = [fsBold]
  106.       ParentFont = False
  107.       TabOrder = 0
  108.       OnClick = BitBtn2Click
  109.       Glyph.Data = {
  110.         78010000424D7801000000000000760000002800000020000000100000000100
  111.         04000000000000000000120B0000120B00000000000000000000000000000000
  112.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  113.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  114.         555555555555555555555555555555555555555555FF55555555555559055555
  115.         55555555577FF5555555555599905555555555557777F5555555555599905555
  116.         555555557777FF5555555559999905555555555777777F555555559999990555
  117.         5555557777777FF5555557990599905555555777757777F55555790555599055
  118.         55557775555777FF5555555555599905555555555557777F5555555555559905
  119.         555555555555777FF5555555555559905555555555555777FF55555555555579
  120.         05555555555555777FF5555555555557905555555555555777FF555555555555
  121.         59905555555555555777555555555555555555555555555555550000}
  122.       NumGlyphs = 2
  123.     end
  124.   end
  125.   object Panel2: TPanel
  126.     Left = 0
  127.     Top = 49
  128.     Width = 399
  129.     Height = 264
  130.     HelpContext = 133
  131.     Align = alClient
  132.     BevelInner = bvLowered
  133.     BorderWidth = 3
  134.     BorderStyle = bsSingle
  135.     Caption = 'Panel2'
  136.     Color = clTeal
  137.     TabOrder = 1
  138.     object ScrollBox: TScrollBox
  139.       Left = 5
  140.       Top = 5
  141.       Width = 385
  142.       Height = 250
  143.       HelpContext = 133
  144.       HorzScrollBar.Margin = 6
  145.       HorzScrollBar.Range = 291
  146.       VertScrollBar.Margin = 6
  147.       VertScrollBar.Range = 165
  148.       Align = alClient
  149.       AutoScroll = False
  150.       Color = clNavy
  151.       ParentColor = False
  152.       TabOrder = 0
  153.       object Label2: TLabel
  154.         Left = 9
  155.         Top = 11
  156.         Width = 76
  157.         Height = 15
  158.         Alignment = taRightJustify
  159.         AutoSize = False
  160.         Caption = 'ECZANE ADI'
  161.         FocusControl = EditECZADI
  162.         Font.Color = clWhite
  163.         Font.Height = -12
  164.         Font.Name = 'Arial'
  165.         Font.Style = [fsBold]
  166.         ParentFont = False
  167.       end
  168.       object Label3: TLabel
  169.         Left = 26
  170.         Top = 36
  171.         Width = 59
  172.         Height = 15
  173.         Alignment = taRightJustify
  174.         AutoSize = False
  175.         Caption = 'TAR∩┐╜H'
  176.         FocusControl = EditTARIH
  177.         Font.Color = clWhite
  178.         Font.Height = -12
  179.         Font.Name = 'Arial'
  180.         Font.Style = [fsBold]
  181.         ParentFont = False
  182.       end
  183.       object Label4: TLabel
  184.         Left = 26
  185.         Top = 62
  186.         Width = 59
  187.         Height = 15
  188.         Alignment = taRightJustify
  189.         AutoSize = False
  190.         Caption = '∩┐╜R∩┐╜N ADI'
  191.         FocusControl = EditILACAD
  192.         Font.Color = clWhite
  193.         Font.Height = -12
  194.         Font.Name = 'Arial'
  195.         Font.Style = [fsBold]
  196.         ParentFont = False
  197.       end
  198.       object Label5: TLabel
  199.         Left = 26
  200.         Top = 118
  201.         Width = 59
  202.         Height = 15
  203.         Alignment = taRightJustify
  204.         AutoSize = False
  205.         Caption = 'ADET'
  206.         FocusControl = EditADET
  207.         Font.Color = clWhite
  208.         Font.Height = -12
  209.         Font.Name = 'Arial'
  210.         Font.Style = [fsBold]
  211.         ParentFont = False
  212.       end
  213.       object Label6: TLabel
  214.         Left = 26
  215.         Top = 144
  216.         Width = 59
  217.         Height = 15
  218.         Alignment = taRightJustify
  219.         AutoSize = False
  220.         Caption = 'TUTAR'
  221.         FocusControl = EditTUTAR
  222.         Font.Color = clWhite
  223.         Font.Height = -12
  224.         Font.Name = 'Arial'
  225.         Font.Style = [fsBold]
  226.         ParentFont = False
  227.       end
  228.       object SpeedButton1: TSpeedButton
  229.         Left = 344
  230.         Top = 57
  231.         Width = 24
  232.         Height = 25
  233.         Hint = '∩┐╜r∩┐╜n Se∩┐╜'
  234.         Glyph.Data = {
  235.           42010000424D4201000000000000760000002800000011000000110000000100
  236.           040000000000CC00000000000000000000000000000010000000000000000000
  237.           BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  238.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
  239.           FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
  240.           333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
  241.           000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
  242.           FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
  243.           8F8444333333300000003448F7433333333330000000348F7733333333333000
  244.           000034F77433333333333F000000344443333333333330000000333333333333
  245.           333337000000}
  246.         ParentShowHint = False
  247.         ShowHint = True
  248.         OnClick = SpeedButton1Click
  249.       end
  250.       object Label1: TLabel
  251.         Left = 6
  252.         Top = 91
  253.         Width = 79
  254.         Height = 15
  255.         Alignment = taRightJustify
  256.         AutoSize = False
  257.         Caption = 'B∩┐╜R∩┐╜M F∩┐╜YATI'
  258.         FocusControl = EditTUTAR
  259.         Font.Color = clWhite
  260.         Font.Height = -12
  261.         Font.Name = 'Arial'
  262.         Font.Style = [fsBold]
  263.         ParentFont = False
  264.       end
  265.       object SpeedButton2: TSpeedButton
  266.         Left = 278
  267.         Top = 7
  268.         Width = 24
  269.         Height = 25
  270.         Hint = 'Eczane Se∩┐╜'
  271.         Glyph.Data = {
  272.           42010000424D4201000000000000760000002800000011000000110000000100
  273.           040000000000CC00000000000000000000000000000010000000000000000000
  274.           BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  275.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
  276.           FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
  277.           333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
  278.           000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
  279.           FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
  280.           8F8444333333300000003448F7433333333330000000348F7733333333333000
  281.           000034F77433333333333F000000344443333333333330000000333333333333
  282.           333337000000}
  283.         ParentShowHint = False
  284.         ShowHint = True
  285.         OnClick = SpeedButton2Click
  286.       end
  287.       object DBText1: TDBText
  288.         Left = 303
  289.         Top = 147
  290.         Width = 65
  291.         Height = 17
  292.         DataField = 'NO'
  293.         DataSource = DataSource1
  294.         Font.Color = clSilver
  295.         Font.Height = -11
  296.         Font.Name = 'Arial'
  297.         Font.Style = [fsBold]
  298.         ParentFont = False
  299.       end
  300.       object Label9: TLabel
  301.         Left = 244
  302.         Top = 146
  303.         Width = 56
  304.         Height = 14
  305.         Caption = 'Takas No :'
  306.         Font.Color = clSilver
  307.         Font.Height = -11
  308.         Font.Name = 'Arial'
  309.         Font.Style = [fsBold]
  310.         ParentFont = False
  311.       end
  312.       object EditECZADI: TDBEdit
  313.         Left = 92
  314.         Top = 7
  315.         Width = 180
  316.         Height = 22
  317.         CharCase = ecUpperCase
  318.         DataField = 'ECZADI'
  319.         DataSource = DataSource1
  320.         MaxLength = 0
  321.         TabOrder = 0
  322.       end
  323.       object EditTARIH: TDBEdit
  324.         Left = 92
  325.         Top = 33
  326.         Width = 77
  327.         Height = 22
  328.         DataField = 'TARIH'
  329.         DataSource = DataSource1
  330.         MaxLength = 0
  331.         TabOrder = 1
  332.       end
  333.       object EditILACAD: TDBEdit
  334.         Left = 92
  335.         Top = 58
  336.         Width = 245
  337.         Height = 22
  338.         Color = clSilver
  339.         DataField = 'ILACAD'
  340.         DataSource = DataSource1
  341.         MaxLength = 0
  342.         ReadOnly = True
  343.         TabOrder = 2
  344.       end
  345.       object EditADET: TDBEdit
  346.         Left = 92
  347.         Top = 114
  348.         Width = 40
  349.         Height = 22
  350.         DataField = 'ADET'
  351.         DataSource = DataSource1
  352.         MaxLength = 0
  353.         TabOrder = 4
  354.         OnExit = EditADETExit
  355.       end
  356.       object EditTUTAR: TDBEdit
  357.         Left = 92
  358.         Top = 140
  359.         Width = 143
  360.         Height = 22
  361.         DataField = 'TUTAR'
  362.         DataSource = DataSource1
  363.         MaxLength = 0
  364.         TabOrder = 5
  365.       end
  366.       object DBRadioGroup1: TDBRadioGroup
  367.         Left = 14
  368.         Top = 173
  369.         Width = 354
  370.         Height = 65
  371.         Caption = 'Takas Tipi'
  372.         Color = clSilver
  373.         Columns = 2
  374.         DataField = 'TIP'
  375.         DataSource = DataSource1
  376.         Font.Color = clNavy
  377.         Font.Height = -12
  378.         Font.Name = 'Arial'
  379.         Font.Style = [fsBold]
  380.         Items.Strings = (
  381.           '∩┐╜r∩┐╜n Ald∩┐╜m'
  382.           '∩┐╜r∩┐╜n Verdim'
  383.           '∩┐╜r∩┐╜n Ald∩┐╜m(Sto∩┐╜a Ekle)'
  384.           '∩┐╜r∩┐╜n Verdim(Stoktan D∩┐╜∩┐╜)')
  385.         ParentColor = False
  386.         ParentFont = False
  387.         TabOrder = 6
  388.         Values.Strings = (
  389.           'A'
  390.           'U'
  391.           'E'
  392.           'V')
  393.       end
  394.       object DBEdit1: TDBEdit
  395.         Left = 93
  396.         Top = 86
  397.         Width = 142
  398.         Height = 22
  399.         Color = clSilver
  400.         DataField = 'FIYAT'
  401.         DataSource = DataSource2
  402.         MaxLength = 0
  403.         ReadOnly = True
  404.         TabOrder = 3
  405.       end
  406.       object DBRadioGroup2: TDBRadioGroup
  407.         Left = 255
  408.         Top = 86
  409.         Width = 82
  410.         Height = 52
  411.         Caption = 'Son Durum'
  412.         Color = clSilver
  413.         DataField = 'SONDURUM'
  414.         DataSource = DataSource1
  415.         Items.Strings = (
  416.           'A∩┐╜∩┐╜k'
  417.           'Kapat∩┐╜ld∩┐╜')
  418.         ParentColor = False
  419.         TabOrder = 7
  420.         Values.Strings = (
  421.           'A'
  422.           'K')
  423.       end
  424.     end
  425.   end
  426.   object Panel3: TPanel
  427.     Left = 0
  428.     Top = 0
  429.     Width = 399
  430.     Height = 49
  431.     HelpContext = 133
  432.     Align = alTop
  433.     BevelInner = bvLowered
  434.     BorderWidth = 2
  435.     Color = clRed
  436.     TabOrder = 2
  437.     object BitBtnARA: TBitBtn
  438.       Left = 111
  439.       Top = 12
  440.       Width = 79
  441.       Height = 25
  442.       Caption = 'Arama'
  443.       Font.Color = clNavy
  444.       Font.Height = -12
  445.       Font.Name = 'Arial'
  446.       Font.Style = [fsBold]
  447.       ParentFont = False
  448.       TabOrder = 0
  449.       OnClick = BitBtnARAClick
  450.       Glyph.Data = {
  451.         76010000424D7601000000000000760000002800000020000000100000000100
  452.         04000000000000010000130B0000130B00000000000000000000000000000000
  453.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  454.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  455.         333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
  456.         300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
  457.         330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
  458.         333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
  459.         339977FF777777773377000BFB03333333337773FF733333333F333000333333
  460.         3300333777333333337733333333333333003333333333333377333333333333
  461.         333333333333333333FF33333333333330003333333333333777333333333333
  462.         3000333333333333377733333333333333333333333333333333}
  463.       NumGlyphs = 2
  464.     end
  465.     object BtnSORGU: TBitBtn
  466.       Left = 210
  467.       Top = 12
  468.       Width = 79
  469.       Height = 25
  470.       Caption = 'Sorgu'
  471.       Font.Color = clNavy
  472.       Font.Height = -12
  473.       Font.Name = 'Arial'
  474.       Font.Style = [fsBold]
  475.       ParentFont = False
  476.       TabOrder = 1
  477.       OnClick = BtnSORGUClick
  478.       Glyph.Data = {
  479.         76010000424D7601000000000000760000002800000020000000100000000100
  480.         04000000000000010000130B0000130B00000000000000000000000000000000
  481.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  482.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  483.         333333333333333FF3FF3333333333CC30003333333333773777333333333C33
  484.         3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
  485.         33003377333337F33377333333333C333300333F333337F33377339333333C33
  486.         3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
  487.         330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
  488.         330077F377F337F33377993399333C33330077FF773337F33377399993333C33
  489.         33333777733337F333FF333333333C33300033333333373FF7773333333333CC
  490.         3000333333333377377733333333333333333333333333333333}
  491.       NumGlyphs = 2
  492.     end
  493.     object BitBtn1: TBitBtn
  494.       Left = 308
  495.       Top = 12
  496.       Width = 79
  497.       Height = 25
  498.       Font.Color = clNavy
  499.       Font.Height = -12
  500.       Font.Name = 'Arial'
  501.       Font.Style = [fsBold]
  502.       ParentFont = False
  503.       TabOrder = 2
  504.       Kind = bkClose
  505.     end
  506.     object BtnGUN: TBitBtn
  507.       Left = 13
  508.       Top = 12
  509.       Width = 79
  510.       Height = 25
  511.       Caption = 'G∩┐╜ncelleme'
  512.       Font.Color = clNavy
  513.       Font.Height = -12
  514.       Font.Name = 'Arial'
  515.       Font.Style = [fsBold]
  516.       ParentFont = False
  517.       TabOrder = 3
  518.       OnClick = BtnGUNClick
  519.     end
  520.   end
  521.   object DataSource1: TDataSource
  522.     DataSet = Table1
  523.     Left = 359
  524.     Top = 61
  525.   end
  526.   object Table1: TTable
  527.     BeforeOpen = Table1BeforeOpen
  528.     AfterInsert = Table1AfterInsert
  529.     BeforeEdit = Table1BeforeEdit
  530.     AfterPost = Table1AfterPost
  531.     BeforeDelete = Table1BeforeDelete
  532.     DatabaseName = 'ECZ'
  533.     TableName = 'takas.db'
  534.     Left = 332
  535.     Top = 61
  536.     object Table1NO: TIntegerField
  537.       FieldName = 'NO'
  538.     end
  539.     object Table1ECZADI: TStringField
  540.       FieldName = 'ECZADI'
  541.       Size = 24
  542.     end
  543.     object Table1ILACAD: TStringField
  544.       FieldName = 'ILACAD'
  545.       Size = 36
  546.     end
  547.     object Table1ADET: TSmallintField
  548.       FieldName = 'ADET'
  549.     end
  550.     object Table1TUTAR: TCurrencyField
  551.       FieldName = 'TUTAR'
  552.     end
  553.     object Table1TIP: TStringField
  554.       FieldName = 'TIP'
  555.       Size = 1
  556.     end
  557.     object Table1TARIH: TDateField
  558.       FieldName = 'TARIH'
  559.       EditMask = '!90/90/9900;1;_'
  560.     end
  561.     object Table1SONDURUM: TStringField
  562.       FieldName = 'SONDURUM'
  563.       Size = 1
  564.     end
  565.   end
  566.   object UrunAlTab: TTable
  567.     DatabaseName = 'ECZ'
  568.     IndexFieldNames = 'ILACAD'
  569.     MasterFields = 'ILACAD'
  570.     MasterSource = DataSource1
  571.     TableName = 'URUN.DB'
  572.     Left = 240
  573.     Top = 89
  574.     object UrunAlTabILACAD: TStringField
  575.       FieldName = 'ILACAD'
  576.       Size = 36
  577.     end
  578.     object UrunAlTabFIYAT: TCurrencyField
  579.       FieldName = 'FIYAT'
  580.     end
  581.     object UrunAlTabMIKTAR: TIntegerField
  582.       FieldName = 'MIKTAR'
  583.     end
  584.     object UrunAlTabILACNO: TAutoIncField
  585.       FieldName = 'ILACNO'
  586.     end
  587.   end
  588.   object DataSource2: TDataSource
  589.     DataSet = UrunAlTab
  590.     Left = 208
  591.     Top = 89
  592.   end
  593.   object T_Urunhrk: TTable
  594.     Filter = 'SIRANO>9999999'
  595.     Filtered = True
  596.     DatabaseName = 'ECZ'
  597.     IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO;SIRANO'
  598.     TableName = 'URUNHRK.DB'
  599.     Left = 216
  600.     Top = 120
  601.     object T_UrunhrkILACNO: TIntegerField
  602.       FieldName = 'ILACNO'
  603.     end
  604.     object T_UrunhrkGCTARIH: TDateTimeField
  605.       FieldName = 'GCTARIH'
  606.     end
  607.     object T_UrunhrkALSATNO: TFloatField
  608.       FieldName = 'ALSATNO'
  609.     end
  610.     object T_UrunhrkSIRANO: TIntegerField
  611.       FieldName = 'SIRANO'
  612.     end
  613.     object T_UrunhrkGIRMIK: TIntegerField
  614.       FieldName = 'GIRMIK'
  615.     end
  616.     object T_UrunhrkGIRFIYAT: TCurrencyField
  617.       FieldName = 'GIRFIYAT'
  618.     end
  619.     object T_UrunhrkCIKMIK: TIntegerField
  620.       FieldName = 'CIKMIK'
  621.     end
  622.     object T_UrunhrkCIKFIYAT: TCurrencyField
  623.       FieldName = 'CIKFIYAT'
  624.     end
  625.   end
  626. end
  627.